home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 099 - System Utilities for the IIc - 680-3234-A.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2019-02-17  |  1KB  |  38 lines
  1. 1000  REM -- Apple //c System Utilities Startup Program --
  2. 1010 A2C = 0: IF  PEEK(64435) = 6  AND  PEEK(64448) = 0  THEN A2C = 1
  3. 1020 M = 80:C$ =  CHR$(18): PRINT  CHR$(4);"PR#3"
  4. 1030  IF  PEEK(49248) >127  THEN M = 40:C$ =  CHR$(17)
  5. 1040  PRINT C$
  6. 1050 VP = 5: GOSUB 5000
  7. 1060 VP = 8:MSG$ = "Apple //c": GOSUB 4000
  8. 1070 VP = 10:MSG$ = "System Utilities": GOSUB 4000
  9. 1080 VP = 12:MSG$ = "Copyright Apple Computer, Inc., 1984": GOSUB 4000
  10. 1090 VP = 20: GOSUB 5000
  11. 1100  IF A2C  THEN 2000
  12. 1110 VP = 15:MSG$ = "This System Utilities program is": GOSUB 4000
  13. 1120 VP = 16:MSG$ = "designed to work only with the Apple //c": GOSUB 4000
  14. 1130 VP = 18:MSG$ = "Press RETURN to continue ": GOSUB 4000
  15. 1140  GET A$: IF  ASC(A$) < >13  THEN 1140
  16. 1150  NEW 
  17. 2000  REM  - set up AppleSoft to free up $800 page and load -
  18. 2010 ADR = 2304:HI =  INT((ADR +1)/256):LO = (ADR +1) -(HI *256)
  19. 2020  POKE ADR,0
  20. 2030  POKE 103,LO
  21. 2040  POKE 104,HI
  22. 3000  REM -- Load OBJ files into AUX bank --
  23. 3010  PRINT  CHR$(4);"-SU1.OBJ"
  24. 3020  PRINT  CHR$(4);"-SU2.OBJ"
  25. 3030  PRINT  CHR$(4);"-SU3.OBJ"
  26. 3040  HIMEM: 32000
  27. 3050  PRINT  CHR$(4);"CLOSE"
  28. 3060  PRINT  CHR$(4);"-SU"
  29. 4000  REM - center a string on screen -
  30. 4010 L =  LEN(MSG$):HP =  INT((M -L)/2) +1
  31. 4020  VTAB VP: HTAB HP: PRINT MSG$;
  32. 4030  RETURN 
  33. 5000  REM - draw a line -
  34. 5005  PRINT : IF   NOT A2C  THEN  RETURN 
  35. 5010  PRINT  CHR$(15); CHR$(27);
  36. 5020  VTAB VP: FOR A = 1 TO M/10: PRINT "SSSSSSSSSS";: NEXT 
  37. 5030  PRINT  CHR$(14); CHR$(24);
  38. 5040  RETURN